pdf(file="Figure_3.pdf",width=12,height=8)
par(mar=c(4.1,5,4,1),fig=c(0,.375,0,1))


################# LOAD PACKAGES
library(rstan)
library(rethinking)
library(parallel)
library(binom)

################# LOAD DATA

dataset <- read.csv("Data__current_study.csv")

#################

predict.values <- "NO"

################# SELECT MODEL

model = Model_5

################# GENERAL PARAMETERS

col0= 	rgb(0,0,0,255,max=255)
shade0= rgb(0,0,0,70,max=255) 
col1= 	rgb(255,0,0,255,max=255)
shade1= rgb(255,0,0,70,max=255) 
col2= 	rgb(0,0,255,255,max=255)
shade2= rgb(0,0,255,70,max=255) 
col3= 	rgb(0,153,0,255,max=255)
shade3= rgb(0,153,0,70,max=255) 
col4= 	rgb(204,102,0,255,max=255)
shade4= rgb(204,102,0,70,max=255) 
col5= 	rgb(127,0,255,255,max=255)
shade5= rgb(127,0,255,70,max=255) 
col6= 	rgb(153,150,76,255,max=255)
shade6= rgb(153,150,76,70,max=255) 
col7= 	rgb(216,5,202,255,max=255)
shade7= rgb(75,0,153,70,max=255) 
col8= 	rgb(100,100,100,255,max=255)
shade8= rgb(100,100,100,70,max=255) 

length=30	# Length of vector of predictions, i.e. how many predictions are plotted per line


age.seq0a <- seq( from=min(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq1a <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq2a <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq3a <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq4a <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq5a <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq6a <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)

age.seq0b <- seq( from=min(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq1b <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq2b <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq3b <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq4b <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq5b <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq6b <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)

age.seq0c <- seq( from=min(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq1c <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq2c <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq3c <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq4c <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq5c <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq6c <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)




################# PLOTTING MODEL ESTIMATES --------- PUNISH-SELFISH

cexset.title = 1.5
cexset = 1.2
cexlegend = 1
line=2.7
x=0
y=.95


par(mfrow=c(3, 4))
layout.matrix <- matrix(c(1,3,5,7,9,11,2,4,6,8,10,12), nrow = 3, ncol = 4)

################# PLOTTING BERLIN

layout(mat = layout.matrix, heights = c(1, 1), widths = c(1, 1)) 

plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( A ) Berlin\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq1a , pred1a_base, lty=1, lwd=2, col=col1)
#shade( pred.PI1a_base , age.seq1a, col=shade1)
lines( age.seq1b , pred1a_gen, lty=3, lwd=2, col=col1)
shade( pred.PI1a_gen , age.seq1b, col=shade1)
lines( age.seq1c , pred1a_self, lty=6, lwd=2, col=col1)
shade( pred.PI1a_self , age.seq1c, col=shade1)


################# PLOTTING LA PLATA
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( C ) La Plata\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq2a , pred2a_base, lty=1, lwd=2, col=col2)
#shade( pred.PI2a_base , age.seq2a, col=shade2)
lines( age.seq2b , pred2a_gen, lty=3, lwd=2, col=col2)
shade( pred.PI2a_gen , age.seq2b, col=shade2)
lines( age.seq2c , pred2a_self, lty=6, lwd=2, col=col2)
shade( pred.PI2a_self , age.seq2c, col=shade2)


################# PLOTTING PHOENIX
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( E ) Phoenix\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq3a , pred3a_base, lty=1, lwd=2, col=col3)
#shade( pred.PI3a_base , age.seq3a, col=shade3)
lines( age.seq3b , pred3a_gen, lty=3, lwd=2, col=col3)
shade( pred.PI3a_gen , age.seq3b, col=shade3)
lines( age.seq3c , pred3a_self, lty=6, lwd=2, col=col3)
shade( pred.PI3a_self , age.seq3c, col=shade3)


################# PLOTTING PUNE
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( G ) Pune\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq4a , pred4a_base, lty=1, lwd=2, col=col4)
#shade( pred.PI4a_base , age.seq4a, col=shade4)
lines( age.seq4b , pred4a_gen, lty=3, lwd=2, col=col4)
shade( pred.PI4a_gen , age.seq4b, col=shade4)
lines( age.seq4c , pred4a_self, lty=6, lwd=2, col=col4)
shade( pred.PI4a_self , age.seq4c, col=shade4)


################# PLOTTING SHUAR
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( I ) Shuar\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq5a , pred5a_base, lty=1, lwd=2, col=col5)
#shade( pred.PI5a_base , age.seq5a, col=shade5)
lines( age.seq5b , pred5a_gen, lty=3, lwd=2, col=col5)
shade( pred.PI5a_gen , age.seq5b, col=shade5)
lines( age.seq5c , pred5a_self, lty=6, lwd=2, col=col5)
shade( pred.PI5a_self , age.seq5c, col=shade5)


################# PLOTTING WICHÍ
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Selfish TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( K ) Wichí\nPunishing a Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq6a , pred6a_base, lty=1, lwd=2, col=col6)
#shade( pred.PI6a_base , age.seq6a, col=shade6)
lines( age.seq6b , pred6a_gen, lty=3, lwd=2, col=col6)
shade( pred.PI6a_gen , age.seq6b, col=shade6)
lines( age.seq6c , pred6a_self, lty=6, lwd=2, col=col6)
shade( pred.PI6a_self , age.seq6c, col=shade6)






################# PLOTTING MODEL ESTIMATES ---- PUNISH-PROSOCIAL


################# PLOTTING BERLIN
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
legend(x="topleft", c("Prime: Punish-Selfish TP","Prime: Punish-Either", "Prime: Punish-Prosocial TP"), bty="n", lwd = 2, lty=c(3,1,6), cex=cexlegend, col=col0 , text.col=col0 )
title(main="( B ) Berlin\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq1a , pred1b_base, lty=1, lwd=2, col=col1)
#shade( pred.PI1b_base , age.seq1a, col=shade1)
lines( age.seq1b , pred1b_gen, lty=3, lwd=2, col=col1)
shade( pred.PI1b_gen , age.seq1b, col=shade1)
lines( age.seq1c , pred1b_self, lty=6, lwd=2, col=col1)
shade( pred.PI1b_self , age.seq1c, col=shade1)


################# PLOTTING LA PLATA
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( D ) La Plata\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq2a , pred2b_base, lty=1, lwd=2, col=col2)
#shade( pred.PI2b_base , age.seq2a, col=shade2)
lines( age.seq2b , pred2b_gen, lty=3, lwd=2, col=col2)
shade( pred.PI2b_gen , age.seq2b, col=shade2)
lines( age.seq2c , pred2b_self, lty=6, lwd=2, col=col2)
shade( pred.PI2b_self , age.seq2c, col=shade2)


################# PLOTTING PHOENIX
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( F ) Phoenix\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq3a , pred3b_base, lty=1, lwd=2, col=col3)
#shade( pred.PI3b_base , age.seq3a, col=shade3)
lines( age.seq3b , pred3b_gen, lty=3, lwd=2, col=col3)
shade( pred.PI3b_gen , age.seq3b, col=shade3)
lines( age.seq3c , pred3b_self, lty=6, lwd=2, col=col3)
shade( pred.PI3b_self , age.seq3c, col=shade3)


################# PLOTTING PUNE
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( H ) Pune\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq4a , pred4b_base, lty=1, lwd=2, col=col4)
#shade( pred.PI4b_base , age.seq4a, col=shade4)
lines( age.seq4b , pred4b_gen, lty=3, lwd=2, col=col4)
shade( pred.PI4b_gen , age.seq4b, col=shade4)
lines( age.seq4c , pred4b_self, lty=6, lwd=2, col=col4)
shade( pred.PI4b_self , age.seq4c, col=shade4)


################# PLOTTING SHUAR
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( J ) Shuar\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq5a , pred5b_base, lty=1, lwd=2, col=col5)
#shade( pred.PI5b_base , age.seq5a, col=shade5)
lines( age.seq5b , pred5b_gen, lty=3, lwd=2, col=col5)
shade( pred.PI5b_gen , age.seq5b, col=shade5)
lines( age.seq5c , pred5b_self, lty=6, lwd=2, col=col5)
shade( pred.PI5b_self , age.seq5c, col=shade5)


################# PLOTTING WICHÍ
plot( dataset$age_c , type="n" , xlab="Age in Years" , ylab="Prob. of Punishing a Prosocial TP" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line )
title(main="( L ) Wichí\nPunishing a Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq6a , pred6b_base, lty=1, lwd=2, col=col6)
#shade( pred.PI6b_base , age.seq6a, col=shade6)
lines( age.seq6b , pred6b_gen, lty=3, lwd=2, col=col6)
shade( pred.PI6b_gen , age.seq6b, col=shade6)
lines( age.seq6c , pred6b_self, lty=6, lwd=2, col=col6)
shade( pred.PI6b_self , age.seq6c, col=shade6)



dev.off()
